function d=rangosinH(MAGS,largo,w,configuracion)
    min1=inf;
    max1=0;
    if configuracion==0
        for k=1:largo
            configuracion(k)=k;
        end
    end
    
    for k=1:largo
        
       
        maxaux=max(MAGS(configuracion(k),:));
        minaux=min(MAGS(configuracion(k),:));
        
        if maxaux>max1
            max1=maxaux;
        end
        
        if minaux<min1
            min1=minaux;
        end
        
    end
    
    d=max1/min1-1;

end

% EVALUA VIEJO:
%{
for k=1:etapas
        for l=1:etapas
        
            if k~=l                  
                
                            Het(configuracion(k))=Het(configuracion(k))*indicedefidelidad;
                            Het(configuracion(l))=Het(configuracion(l))/indicedefidelidad;
                            ganancias(k)=ganancias(k)*indicedefidelidad;
                            ganancias(l)=ganancias(l)/indicedefidelidad;

                        while rango(Het,etapas,w,configuracion)<=daux
                            daux=rango(Het,etapas,w,configuracion);
                            Het(configuracion(k))=Het(configuracion(k))*indicedefidelidad;
                            Het(configuracion(l))=Het(configuracion(l))/indicedefidelidad;
                            ganancias(k)=ganancias(k)*indicedefidelidad;
                            ganancias(l)=ganancias(l)/indicedefidelidad;
                            
                        end
                            Het(configuracion(k))=Het(configuracion(k))/indicedefidelidad;
                            Het(configuracion(l))=Het(configuracion(l))*indicedefidelidad;
                            ganancias(k)=ganancias(k)/indicedefidelidad;
                            ganancias(l)=ganancias(l)*indicedefidelidad;

                            a=0;
                        while rango(Het,etapas,w,configuracion)<=daux;
                            daux=rango(Het,etapas,w,configuracion);
                            Het(configuracion(k))=Het(configuracion(k))/indicedefidelidad;
                            Het(configuracion(l))=Het(configuracion(l))*indicedefidelidad;
                            ganancias(k)=ganancias(k)/indicedefidelidad;
                            ganancias(l)=ganancias(l)*indicedefidelidad;
                            a=1;
                        end
                        
                        if a
                            Het(configuracion(k))=Het(configuracion(k))*indicedefidelidad;
                            Het(configuracion(l))=Het(configuracion(l))/indicedefidelidad;
                            ganancias(k)=ganancias(k)*indicedefidelidad;
                            ganancias(l)=ganancias(l)/indicedefidelidad;
                        end
       
                        
            end
            

            
        end
    
    end
    daux=rango(Het,etapas,w,configuracion);
    maximo=maximofun(Het,etapas,w,configuracion);
    minimo=minimofun(Het,etapas,w,configuracion);
%}